home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbfaqr01.zip
/
DIR.BI
< prev
next >
Wrap
Text File
|
1992-02-11
|
1KB
|
52 lines
DECLARE SUB SortDir (SNumberOfFiles AS INTEGER)
DECLARE FUNCTION ReadDir& (RDIR$, RFTYPE$)
DECLARE FUNCTION FreeSpace& (FCurrentDrive AS INTEGER)
DECLARE FUNCTION GetCurrentDrive% ()
DECLARE FUNCTION GetNumberOfDrives% ()
DECLARE FUNCTION GetVolumeName$ (VDir$)
DECLARE FUNCTION GetFile% ()
TYPE RegTypeX
AX AS INTEGER
BX AS INTEGER
CX AS INTEGER
DX AS INTEGER
BP AS INTEGER
SI AS INTEGER
DI AS INTEGER
FLAGS AS INTEGER
DS AS INTEGER
ES AS INTEGER
END TYPE
TYPE DTA
RES AS STRING * 21
ATT AS STRING * 1
Time AS INTEGER
Date AS INTEGER
Size AS LONG
FName AS STRING * 98
END TYPE
TYPE TDTA
Time AS STRING * 8
Date AS STRING * 10
Size AS LONG
FName AS STRING * 12
D AS INTEGER
R AS INTEGER
A AS INTEGER
S AS INTEGER
H AS INTEGER
END TYPE
COMMON SHARED TDInfo() AS TDTA
COMMON SHARED Dinfo AS DTA
COMMON SHARED Dregs AS RegTypeX
COMMON SHARED NumberOfFIles AS INTEGER
CONST MaxFiles = 250 '***Maximum entries in a directory***
CONST True = -1
CONST FALSE = NOT True